home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / a / a_funk / geograph.tos / GEOGRAPH / QTH_M10.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-02-01  |  3.4 KB  |  96 lines
  1. Msg# 45105   To: SOFTWARE @EU   From: DH2HAP   Date: 22Feb90/0541
  2. Subject: Olivetti M10 QTHBER.BAs QTH-Kenn-Berechnung
  3. Bulletin ID: 212009DB0HB
  4. Path: DB0CZ!LX0PAC!DB0GV!DB0KG!DK0MAV!DB0AGM!DB0HB
  5. de DH2HAP @ DB0HB
  6.  
  7. Hallo hier ist Peter aus Hamburg, W.Germany
  8. Inzwischen bin ich zwar auf einen PC-XT umgestiegen, aber ich
  9. halte den Olivett M10 immer noch fuer eine tolle Maschine.
  10. Freunde von mir und ich haben viele Programme entwickelt. Aus meinen
  11. beiden Programmcassetten waehle ich einige Programme aus und spiele
  12. sie hier ein. Vielleicht hilft es jemand weiter.
  13. Viele Gruesse von Peter DH2HAP @ DB0HB
  14.  
  15. QTH-Kenner-Berechnung fuer Olivetti M10
  16.  
  17. 1 REM QTHBER 23.6.86
  18. NT
  19. 101 PRINT" Eigener QTH-Locator"
  20. 102 PRINT" Gegenstation":PRINT
  21. 103 PRINT" Entfernung"
  22. 104 PRINT@281,"Berechn. <B> Eingabe abschliessen <*>";
  23. 110 JB=103:JL=15:MA=QE:GOSUB50:GOSUB350:IFMA=""THEN110ELSEGOSUB40:QE=MA
  24. 115 GOSUB350:LE=LF:BE=BF
  25. 130 JB=143:MA=QG:GOSUB50:GOSUB350:IFMA=""ORMA=QETHEN130ELSEGOSUB40:QG=MA
  26. 160 GOSUB350:GA=LF-LE:B=BF-BE
  27. 170 REM Entfernungsb
  28. 180 N=SIN(BE)*SIN(BF)+COS(BE)*COS(BF)*COS(GA)
  29. 190 DX=INT((-ATN(N/SQR(1-N*N))+PI/2)*F+.5)
  30. 200 IQ=IQ+1:SU=SU+DX
  31. 210 IFDX>WVTHENWV=DX
  32. 220 PRINT@222,DX"km":GOTO130
  33. 230 REM Endabrechnung
  34. 240 CLS:PRINT" Endabrechnung"
  35. 260 PRINT" Anzahl Verbindungen:"IQ
  36. 270 PRINT" Insgesamt          :";SU"km"
  37. 280 PRINT" Schnitt   km/Qso   :";INT(SU/IQ+.5)"km"
  38. 290 PRINT" Weiteste Verbindung:";WV"km"
  39. 300 PRINT@281,"Neue Berechnung <J>a / <ENTER> Menu";
  40. 310 Z$=INPUT$(1):IFZ$="j"THENRUNELSEMENU
  41. 350 REMumw+pruef
  42. 360 IFMA="b"THENGOSUB600:GOTO100:ELSEIFMA="*"THEN230
  43. 370 IFLEN(MA)<>6THEN500
  44. 380 FORN=1TO6:T$(N)=MID$(MA,N,1):NEXT
  45. 390 FORN=1TO6:IFT$(N)>="a"ANDT$<="z"THENT$(N)=CHR$(ASC(T$(N))-32)
  46. 400 NEXT:MA="":FORI=1TO6:MA=MA+T$(I):NEXT
  47. 420 FORN=1TO2:REMpruef
  48. 430 IFASC(T$(N))<65ORASC(T$(N))>82THEN500
  49. 440 IFASC(T$(N+2))<48ORASC(T$(N+2))>57THEN500
  50. 450 IFASC(T$(N+4))<65ORASC(T$(N+4))>88THEN500
  51. 460 NEXT
  52. 470 LF=(ASC(T$(1))-65)*20-180+VAL(T$(3))*2+(ASC(T$(5))-65)/12+1/24
  53. 480 BF=(ASC(T$(2))-65)*10-90+VAL(T$(4))+(ASC(T$(6))-65)/24+1/48
  54. 490 LF=LF*P:BF=BF*P:RETURN
  55. 500 REM Bericht. falscher Eingaben
  56. 510 MA="":RETURN:REM IFFL=0THEN110
  57. 600 REMloc aus grad
  58. 605 CLS:QB="":REM UP Loc aus Grad
  59. 610 PRINT"LOCATER ERRECHNEN":PRINT
  60. 620 PRINT"Das Programm errechnet den QTH-Locator"
  61. 630 PRINT"aus Laengen- und Breitengrad."
  62. 640 PRINT"WESTLICHE Breite und SUEDLICHE Laenge"
  63. 650 PRINT"UNBEDINGT mit NEGATIVEN Zahlen angeben!"
  64. 660 PRINT:PRINT"<ENTER>";
  65. 670 Y$=INKEY$:IFY$=""THEN670
  66. 680 IFY$=CHR$(13)THENCLSELSE670
  67. 690 PRINT"Eingabe der GEOGRAFISCHEN LAENGE"
  68. 700 GOSUB900:G=G+180+IM/60
  69. 710 N=INT(G/20):U$(1)=CHR$(N+65)
  70. 720 U$(3)=CHR$(INT((G-20*N)/2)+48)
  71. 730 IFINT(G)=2*INT(G/2)THENEV=1
  72. 740 IFIM>0ANDEV=0THENIM=IM+60
  73. 750 IFIM<0THENIM=120+IM:IFEV=1THENIM=IM-60
  74. 760 U$(5)=CHR$(IM/5+65)
  75. 770 PRINT"Eingabe der GEOGRAPHISCHEN BREITE"
  76. 780 GOSUB900:G=G+90+IM/60:IM=IM+S/60
  77. 790 N=INT(G/10):U$(2)=CHR$(N+65)
  78. 800 U$(4)=CHR$(INT(G-10*N)+48)
  79. 810 IFIM<0THENIM=60+IM
  80. 820 U$(6)=CHR$(INT(IM/2.5)+65)
  81. 830 FORN=1TO6:QB=QB+U$(N):NEXT
  82. 840 CLS:PRINT
  83. 850 PRINT"Qth-Locator = ";QB
  84. 854 PRINT:PRINT"Zurueck zum Programm - QTH-Locator"
  85. 855 PRINT"fuer <E> Eigen / <G> Gegenstation"
  86. 856 PRINT"uebernehmen"
  87. 857 PRINT@240,"";:Y$=INPUT$(1)
  88. 858 IFY$="e"THENQE=QB:ELSEIFY$="g"THENQG=QB:ELSEGOTO857
  89. 859 RETURN
  90. 900 REM Eingabe
  91. 910 INPUT"Grad    ";G
  92. 920 INPUT"Minuten ";IM
  93. 930 INPUT"Sekunden";S
  94. 940 RETURN
  95.  
  96.